with Rational_Numbers.Unary_Operators;
package body Rational_Numbers.Unary_Operators is

   function "+" (X : Rational) return Rational is
   begin
      return X;
   end "+";

   function "-" (X : Rational) return Rational is
      Res : Rational;
   begin
      Res.Numerator := -1*X.Numerator;
      Res.Denominator := X.Denominator;
      return Res;
   end "-";



end Rational_Numbers.Unary_Operators;
